[Страдалецъ]

На мой взгляд чем возится с PosEx,Copy проще воспользоваться сразу классовыми методами:

Код:

Var
  SL: TStringList;
begin
 SL := TStringList.Create;
 SL.Delimiter := #32;
 SL.DelimitedText := Edit1.Text;
...