procedure TForm1.OKClick(Sender: TObject);
begin
//inny kod
if ok then close;
end;
procedure TForm1.FormClose(Sender:TObject;var Action:TCloseAction);
begin
Action:=caFree;
end;
procedure TForm1.OKClick(Sender: TObject);
begin
//inny kod
if ok then close;
end;
procedure TForm1.FormClose(Sender:TObject;var Action:TCloseAction);
begin
Action:=caFree;
end;