como fazer com que um botao no form execute uma funçao

dê um duplo clique que vai abrir no code editor o evento onclick do botão, digite o código desejado e pronto, pode compilar.

a funçao e essa aqui,e o codigo que segue como teria de ser


function NumeroSerie(Unidade:PChar):String;
{Retorna o Número serial da unidade especificada}
var
VolName,SysName : AnsiString;
SerialNo,MaxCLength,FileFlags : DWord;
begin
try
SetLength(VolName,255);
SetLength(SysName,255);
GetVolumeInformation(Unidade,PChar(VolName),255,@SerialNo,
MaxCLength,FileFlags,PChar(SysName),255);
result := IntToHex(SerialNo,8);
except
result := ´ ´;
end;
end;



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

Digamos então que você quer mostrar o número de série num label no form por exemplo:


function NumeroSerie(Unidade:PChar):String;
{Retorna o Número serial da unidade especificada}
var
VolName,SysName : AnsiString;
SerialNo,MaxCLength,FileFlags : DWord;
begin
try
SetLength(VolName,255);
SetLength(SysName,255);
GetVolumeInformation(Unidade,PChar(VolName),255,@SerialNo,
MaxCLength,FileFlags,PChar(SysName),255);
result := IntToHex(SerialNo,;
except
result := ´ ´;
end;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
label.caption := NumeroSerie(´C:´);
end;

Legal pesssoal, muito obrigada pela ajuda.
se pudessem me ajudar com algum link para este tipo de estudo lhe fico muito grato.
Mas de igual forma ,obrigadao,valeu mesmo. :wink:

no site da clubedelphi tem bastante material bom e procura por apostilas delphi no google que vai encontrar bastante material.

falow