[Sanek_ntsk]

Как прочитать слова в edit до символа ';'? Помогите пожалста

[lmikle]

Код:

var
  S : String;
begin
  S := copy(Edit1.Text,1,Pos(';',Edit1.Text)-1);
end;

годится?