procedure TForm1.Button1Click(Sender: TObject); begin if edit1.Text ='form2' then form2.show; end; end. nazım demir demirnazim@hotmail.com