¿Cómo evitar que programa se congele?

[Casimiro Noteví]

Justo lo que te han contestado

De toda formas, también puedes deshabilitar el botón cuando lo pulsen, así no podrán darle más veces.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled:=False;
  //
  ...
end;