[sanya920]

Сообщение от NumLock

у Memo1.WordWrap:=False;

Код:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
begin
  Tag:=Pos('kod=', Memo1.Text);
  if Tag>0 then Edit1.Text:=Copy(Memo1.Text, Tag, 20);
end;

Спасибо, то что надо!