[RangerX]

ну в итоге код принимает вид:

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