procedure TForm1.Button1Click(Sender: TObject);
Var
Durum : Boolean;
begin
durum:= true;
table1.Active := true;

While Not(Table1.Eof) And Durum do
Begin
If Edit1.Text= Table1.FieldByName('KAdi').AsString Then
If Edit2.Text= Table1.FieldByName('Sifre').AsString Then
begin
form2.Show ;
durum:= false;

end
else

label2.Caption :='aa';

end;

End.

arkadaslar program kodları bunlar ve end e kadar normal bir şekilde calısıyor ama birşey oldu end. e geldiğimde alttaki hatayı vermeye başladı bi yardım edermisiniz

[Error] Unit1.pas(61): ';' expected but '.' found
__________________