Funktion von User abbrechen lassen

[Zioone]

hm k^^

FOriginal:=Stringlist

Delphi-Quellcode:

procedure TfrmLogView.btnabortClick(Sender: TObject);
var
  abort: boolean;
begin
  abort:=true;
  Time_search(FOriginal,abort);
end;

procedure TfrmLogView.Time_search(FOriginal: TStringlist;abort: boolean);
var
  i, j, ii,i2,i3: Integer;
  vs: string;
  b: boolean;
begin
  
 if abort=true then
    exit;
  cbo_date.Clear;
  cbo_date.Text:='--- Datum wählen ---';
  ii:=-1;

  TrackBar1.Max:=rtfLines.Lines.Count;
  TrackBar1.Enabled:=true;
  tlbfind.Enabled:=true;
  tlbSave.Enabled := true;

  //--mach noch mehr

  ProgressBar1.Position:=ProgressBar1.Max;
  ProgressBar1.Position:=0;
  btnabort.Visible:=false;
end;

also wie gesagt das
if abort=true then
exit;
macht er ja, wenn ich das weglassen würde, würde er die Time_search ja 2mal ausführen