[zibazon]

В Дэлфи практически не шарю, препод задал просто чат сделать с кучей требований.
вот я так понял код для Мемо с пункта 4

Код:

function MyGetStringFromMemo(Memo: TMemo; Index: Integer): String;
begin
  with Memo do
  Result := Lines[Prev(Lines.Count) - Index];
end;

а вот куда его вставить - хз.

http://www.delphimaster.ru/articles/sockadv/index.html

- сайт, по которому чат сделан