Pasar datos de una tabla a un memo

[ecfisa]

A ver... el problema es que no has explicado algo muy importante: Como están ubicados los datos en el memo.

Encolumnados, de esta forma:

codigo
nombre
precio

caso en que funciona el código de mi mensaje anterior, o tabulados de esta otra:

codigo nombre precio

para lo cuál tendrías que hacer:

Código Delphi [-]
procedure TForm1.Memo1Click(Sender: TObject);
var
  TS: TStrings;
begin
  TS:= TStringList.Create;
  try
    TS.DelimitedText:= Memo1.Lines[Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0)];
    TS.Delimiter:= ' '; // separador de datos
    Edit1.Text:= TS[0];
    Edit2.Text:= TS[1];
    Edit3.Text:= TS[2];
  finally
    TS.Free;
  end;
end;

Saludos.