unit Unit1;

Interface

Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

Type
TForm1 = class(TForm)
Procedure test1(s:string);
Procedure test2(i:integer);
Function test3(s:string):string;
End;

Var
Form1: TForm1;

Implementation

{$R *.dfm}

End.

'sätt sedan markören vid Tform1 och tryck: shift+Ctrl+C eller 'högerklicka och välj "complete class at cursor"
'så kom'mer koden sen se ut:

Unit Unit1;

Interface

Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

Type
TForm1 = class(TForm)
procedure test1(s:string);
procedure test2(i:integer);
function test3(s:string):string;
End;

Var
Form1: TForm1;

Implementation

{$R *.dfm}

{ TForm1 }

Procedure TForm1.test1(s: string);
Begin

End;

Procedure TForm1.test2(i: integer);
Begin

End;

Function TForm1.test3(s: string): string;
Begin

End;

End.