запись в TStringGrid автоматическое отображение TMemo

[VVkSoft]

имею два объекты:
TStringLis и TMemo (мемо у меня визуально на форме)

как мне сделать следующее
записывая данные в TStringLis они автоматически отображались в Tmemо

заранее спасибо

[psycho-coder]

Можно как минимум двумя способами
1:

var
  sl: TStringList;
begin
  sl.Add('Осмысленный текст');
  Memo1.Text := sl.Text;
end;

2:

var
  sl: TStringList;
  s: String;
begin
  s := 'Осмысленный текст';
  sl.Add(s);
  Memo1.Lines.Add(s);
end;

Второй мне кажется, предпочтительней.

[VVkSoft]

согласен с psycho-coder, хочу знать возможно без Memo1.Lines.Add (<Text>);

Возможно ли такое: переписать метод Add в TStringList, и в конструктор добавить параметр чтобы указать в какое TMemo нужно писать. а в методе Add добавить Memj.Add (<Text>);

если возможно то как можно такое сделать

заранее спасибо

[psycho-coder]

Конечно можно. А надо?

[VVkSoft]

Сообщение от psycho-coder

Конечно можно. А надо?

очень нужно ...

делаю программу, там есть лог работы программы. тогда когда программа не может подключиться к базе (туда пишу логи) то она пишет в TStringGrid. вот здесь и нужно мне писать в объект а во втором объекте чтобы показывать написанное

[psycho-coder]

Тогда, до вечера. На работе нет дельфей.

[VVkSoft]

решено своими силами ...

бросаю тестовую программу может кому потребуется

ежели какие есть поправки то пишите