Pregunta sobre funciones

[atapia]

Hola,perdon por molestar pero tengo una duda:tengo un procedure del tipo butonclick y no se si sea posible dentro de el llamar a una funcion;tengo q llamar solo a la funcion o poner toda la funcion dentro del procedure.Este es parte del codigo:



procedure TfrmEtiquetas.AbrirpuertoClick(Sender: TObject);
begin
if OHAUS.Checked then
begin
showmessage('Código para OHAUS');
Function TfrmEtiquetas.LeePeso(var peso: double) : boolean;
var
buff : string;
intentos : integer;
lectura_correcta : boolean;
begin
buff := 'P'+chr(13)+chr(10);
PesoPort.WriteText(buff);
//Una espera inicial de .3 segundos
sleep(300);
intentos := 0;
etc etc etc...

Creo q lo q esta mal es poner asi la funcion no?Ojala alguien me pueda explicar .Gracias