[Страдалецъ]

Можно, но только немножко не так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
//какой-то код
end;
...
if FileExists('c:\1.txt')then
begin
//какой-то код
end
else
begin
 Form1.Button1Click(Sender);
end;
...