Schleife anhalten

[SirThornberry]

ich würde es so machen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    fCancel: Boolean;
[...]
procedure TForm1.BtnCancelClick(Sender: TObject);
begin
  fCancel := True;
end;

procedure TForm1.BtnUploadClick(Sender: TObject);
var
  lCount : Integer;
begin
  lCount := 0;
  fCancel := False;
  while (lCount < Listbox1.Items.Count) and not(fCancel) do
  begin
    Application.ProcessMessages();
    //Datei auf FTP hochladen
    Application.ProcessMessages();
    inc(lCount);
  end;
end;