var s:string; //................ s := ReadS(6); s := copy(s,11,5); s := Copy(s, 1, Pos(' ', s) - 1); Edit1.Text := s;