duda sobre los memos

[ecfisa]

Hola sombradetoro.

Tál como lo has planteado, una forma podría ser:

Código Delphi [-]
...
implementation 

resourcestring
  MsgCodigo = 'No hay espacio suficiente en disco';
  MsgCausa =  'por grabar muchos archivos en el disco';
  MsgSolucion = 'Libere espacio en una partición existente eliminando archivos que no necesita';

procedure TForm1.FormShow(Sender: TObject);
begin
  Edit1.Tag:= 1;
  Edit2.Tag:= 2;
  Edit3.Tag:= 3;
end;

function MensajeExiste(const Mens: string; AMemo:TMemo): Boolean;
begin
  Result:= Pos(Mens, AMemo.Text) <> 0;
end;

procedure TForm1.EditExit(Sender: TObject);
begin
  case (TEdit(Sender).Tag) of
    1:if(Trim(Edit1.Text)='001')and not MensajeExiste(MsgCodigo,Memo1) then
        Memo1.Lines.Add(MsgCodigo);
    2:if (Trim(Edit2.Text)='causa')and not MensajeExiste(MsgCausa,Memo1) then
        Memo1.Lines.Add(MsgCausa);
    3:if (Trim(Edit3.Text)='solucion')and not MensajeExiste(MsgSolucion,Memo1) then
       Memo1.Lines.Add(MsgSolucion);
  end;
end;

Un saludo.

Edito: Me olvidé de aclarar algo, tenés que asociar el procedimiento EditExit al evento OnExit de cada Edit.