Условию if ... then мешают пробелы

[Droid]

Мне надо, так чтобы когда пользователь пишет ЦПТП или ЦПТП + пробел, или много пробелов, или до надписи ЦПТП есть пробелы, а после них ЦПТП, чтоб это условие сохранялось. Но пробелы на KeyPress убирать не надо )

procedure TFD_ML.Edit1Change(Sender: TObject);
begin
if edit1.Text='ЦПТП' then
  begin
    listbox1.Visible:=false;
    label2.Visible:=false;
    sl:=0;
  end;
end;

[Mixasik]

Проще написать функцию, которая будет возварщать строку очищенную от пробелов и ее значение уже сравнивать с тем, что надо.

[AlDelta]

Trim - удаляет начальные и конечные пробелы в строке
http://delphibasics.ru/Trim.php

[Evgeniy26]

procedure TFD_ML.Edit1Change(Sender: TObject);
  function Del(Str: String): String;
  begin
     while Pos(' ', Str) > 0 do
        Delete(Str, Pos(' ', Str), 1);
     Result := Str;
  end;
begin
if Del(edit1.Text)='ЦПТП' then
  begin
    listbox1.Visible:=false;
    label2.Visible:=false;
    sl:=0;
  end;
end;

Вспомнить не мог - Trim, AlDelta - спасибо напомнил.

[Пепел Феникса]

функция Pos

[Lime]

Удалить все пробелы во всей строке

string1 := stringreplace(string1,' ','',[rfreplaceall]);