Function IsInt(Str:String):Boolean;
  var i:integer;
begin
result:=true;
for I := 1 to Length(Str) do
  if not (Str[i] in ['0'..'9']) then
    begin
      result:=false;
      break;
    end;
end;

Function GetRow(Qbuf:String):Integer;
Var Temp:String;
Begin
Result:=-1;
Temp:=Copy(Qbuf,Pos(' ',Qbuf)+1,Length(Qbuf));
//delete(temp,pos(#13#10,temp),length(#13#10));
If Pos(' ',Temp) > 0 Then
  begin
  Temp:=Copy(Temp,1,Pos(' ',Temp)-1);
  If Length(Temp) = 3 Then
    if IsInt(Temp) Then
      Result:=strtoint(Temp)
    Else
      Result:=-1
  end
end;