if then проблема

[Mont1k]

приложение состоит из label и Edit

Label текст
Edit то что нужно вставить в пробелы

после вставки слов в пробелы должен появица текст о том что всё верно

текст этот Label25 и он в данный момент в Visible:False

что я не правильно делаю?


procedure TForm12.Edit1Change(Sender: TObject);
begin
if
edit1Text = ('123s')
and
edit2Text = ('123')
and
edit3.Text = ('123')
and
edit4.Text = ('123')
and
edit5.Text = ('123')

...

then
Label25.Visible:=true;
end;

[Igolka6662]

Ты хотя бы почитай о синтаксисе в делфи. В структуре If then между ними должен быть оператор,а не пол программы. К едиту нудно обращаться edit1.text:=' ',в ковычках можешь писать впринципе любые символы. Если ты хочешь из скопировать текст из Label в Edit,то код такой:
Label1.Caption:='2342342';
Edit1.Text:=Label1.Caption;

[jihot]

procedure TForm12.Edit1Change(Sender: TObject);
begin
if ((Edit1.Text = '123') and (Edit2.Text='123') and (Edit3.Text = '123')) then
Label25.Visible := true;