[lmikle]

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

А прочитать весь текст и отрезать все после первого пробела - религия не позволяет?

Или скопировать...

Код:

var
  s: String;
  idx: Integer;
begin
  Idx := Pos(' ', Edit1.Text);
  If  Idx = 0 
    Then s := Edit1.Text
    Else s := Copy(Edit1.Text,1,Idx-1);
  Label1.Caption := S;
end;