Código: Seleccionar todo

function sMid(lpStr:String;nIndex:Integer;nLength:Integer):String;
var
i:Integer;
begin;
If Length(lpStr) > 0 Then
begin
     for i := nIndex to (nLength + nIndex)-1 do
     begin
          If i = Length(lpStr) then
          begin
               Result := Result + lpStr[i];
               break;
          end else
          begin
               Result := Result + lpStr[i]
          end;
     end;
end;
end