[ecfisa]

Hola exequielmatias1.

Podes usar el evento AfterScroll del TDataSet.

Código Delphi [-]
...
implementation

uses StrUtils;

const
   DELIM = '#';

procedure TForm1.DataSetAfterScroll(DataSet: TDataSet);
var
  p1, p2: Integer;
begin
  with DBMemo1 do  
  begin
    p1 := Pos(DELIM, Text) + 1;
    p2 := PosEx(DELIM, Text, p1);
    if (p1 > 0) and (p2 > 0) then
      Text := Copy(Text, p1, p2 - p1);
  end;
end;
...

Saludos