Código: Seleccionar todo

function sRight(lpStr: String;nLength: Integer):String;

var
i:Integer;

begin
     If Length(lpStr) > 0 Then
     begin
          If nLength >= Length(lpStr) Then
          begin
               for i := 1 to Length(lpStr) do
               begin
                    Result:= Result + lpStr[i];
               end;
          end else
          begin
              for i := (Length(lpStr) - nLength) + 1 to Length(lpStr) do
              begin
                   Result:=Result + lpStr[i];
              end;
          end;
     end;
end;

Código: Seleccionar todo

procedure TForm1.Button2Click(Sender: TObject);
begin
 ShowMessage(sRight('jaime',2))
end;

Código: Seleccionar todo

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