[NumLock]

имхо, правильней использовать событие OnDataChange у TDataSource:

Код:

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  Memo1.Text:=Table1.Fields[0].AsString;
end;