Строки в Мемо

[anymol]

Подскажите пж как копировать информацыю со строки в поле Мемо до определённого символа.
Помогите пж....
Мне нужно скопировать текст с начала рядка до первого пробела.

[Ozerich]

Var p:integer;
begin
p:=pos(' ',memo1.text);
Showmessage(copy(s,1,p-1));
end;

p.s МОЕ 200-ОЕ СООБЩЕНИЕ!!!!

[Alter]

procedure TForm1.Button1Click(Sender: TObject);
Const S :String = 'Блок-схема END';
begin
 Memo1.Lines.Add( Copy(S, 1, Pos(' ', S)-1) );
end;

опередили

[anymol]

А как скопировать эту информацыю, если она находиться не в первой строке?

[Ozerich]

Функция POS находит первый пробел в строке.

[anymol]

Большое спасибо