var
  sPos: integer
  temp: string;
begin
  sPos := pos ( ' ', Edit1.Text );
  if sPos <> 0 then temp := copy(Edti1.Text, sPos + 1, length ( Edit1.Text ) );
end;