Как создать компонент

[cargo29]

Как создать компонент в котором должна быть только одна процедура???

или обычная фукнция

http://progs.biz/delphi/components/components01.aspx

это не то совсем...


например вот эту процедуру

Use GetWindowsDirectory Win32 function: 

procedure TForm1.Button1Click(Sender: TObject);
var
PWindowsDir: array [0..255] of Char;
begin
GetWindowsDirectory(PWindowsDir,255);
Label1.Caption:=StrPas(PWindowsDir);
end;