1:
2:

for i:=1 to 3 do
  TEdit(FindComponent('Edit'+IntToStr(i))).Clear;					

1:
2:
3:
4:
5:

procedure TFormMain.Neustarten;
begin
     WinExec(pChar(ParamStr(0)),SW_SHOW);
     Close;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

type
  TForm1 = class(TForm)
    { ... }
  private
    ResetAll;
  end;

{ ... }

procedure TForm1.ResetAll;
begin
  Edit1.Text := '';
  Edit2.Text := '';

  Button1.Enabled := false;

  // usw.
  { ... }
end;					

1:

Form1.ResetAll;					

1:
2:
3:
4:
5:

type
  TForm1 = class(Form)
     { ... }
  public
    ResetAll;					

1:

self.Button3Click(nil);					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Sender = Button1 then ShowMessage('Button1 wurde geklickt') else
  if Sender = Button2 then ShowMessage('Button2 wurde geklickt') else
    ShowMessage('Sonstiges wurde geklickt');
end;					

1:
2:
3:
4:
5:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Sender is TButton then ShowMessage(TButton(Sender).Name + 
    ' wurde geklickt') else ShowMessage('Sonstiges wurde geklickt');
end;					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Sender is TButton then TButton(Sender).Caption := 'Hallo';
end;					

1:
2:
3:
4:

procedure TForm2.Button1Click(Sender: TObject);
begin
   Form2.Button3Click(nil);
end;					

1:
2:
3:
4:

procedure TForm2.Button1Click(Sender: TObject);
begin
   Form2.Button3Click(TForm2.ButtonClick);
end;					

1:
2:
3:
4:

procedure TForm2.Button1Click(Sender: TObject); 
begin 
Form2.Button3Click(Sender); 
end;					

1:
2:
3:
4:

procedure TForm2.Button1Click(Sender: TObject); 
begin 
Form2.Button3Click(Button4); 
end;					

1:
2:
3:
4:

procedure TForm2.Button1Click(Sender: TObject); 
begin 
Form2.Button3Click(Form1.Button2); 
end;					

1:
2:
3:
4:

procedure TForm2.Button1Click(Sender: TObject); 
begin 
Form2.Button3Click(nil); 
end;