[Lazarus-es] Ayuda con POO

[Juan Perles]

Quiero hacer una serie de comprobaciones que son iguales a un Control TEdit
y a un TMemo.
Como se ve en el ejemplo de mas abajo, el cuerpo de los procedimientos es
el mismo, lo único que cambia es la cabecera. ¿No puedo hacer un único
procedimiento?

function TForm1.EditCorrecto(Control: TEdit): Boolean;
begin
  if length(Trim(Control.Text))= 0 then
    RESULT := False
  else
    RESULT := True;
end;

function TForm1.MemoCorrecto(Control: TMemo): Boolean;
begin
  if length(Trim(Control.Text))= 0 then
    RESULT := False
  else
    RESULT := True;
end;

He intentado unificarlos haciendo el siguiente procedimiento

function TForm1.ControlCorrecto(Sender: TObject): Boolean;
begin
  if length(Trim(Sender.Text))= 0 then
    RESULT := False
  else
    RESULT := True;
end;

El resultado es que no me reconoce el Atributo Text.

Muchas gracias por anticipado por vuestras molestias.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20150622/e37256e8/attachment-0002.html>