FindDialog???

[Daniel B]

Hallo,

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if FindDialog1.Execute then
  begin
    //Hier der Code der zweiten Prozedur
  end;
end;

Grüsse, Daniel