Extraer Decimales De Un Numero

[luis vazquez]

trate de usar el rightstr pero me dice que no esta declarado y la verdad no se como declarar la funcion, trate de hacerlo antes del begin del procedure en unboton pero me da todo en blancon, no regresa nada.

procedure TForm1.Button1Click(Sender: TObject);

function RightStr(const AText: string; ACount: Integer): string;
begin
end;// si no pongo el begin y el end me genera error.

begin

label1.caption:=RightStr('Programmer', 7);

end;

la verdad ando mas enrredado que perro con 3 colas, agradeceria una respuesta, nunca he usado funciones y se que es cencillo pero no entiendo como declararlas

gracias por su prontas respuestas especialmente a caro