Eu ja tentei isso:
procedure TForm1.btnYesClick(Sender: TObject);
begin
Form4:=TForm4.Create(Application);
Form4.ShowModal;
Form1.Hide;
end;
E isso tbm:
procedure TForm1.btnYesClick(Sender: TObject);
begin
Form4:=TForm4.Create(Application);
Form4.ShowModal;
Form1.Close;
end;
Mas nada funciona, ja ate tentei usar um procedure.