unit Unit3;

interface

uses
  Classes, SysUtils, Unit2;

type
 TPackets = class(TObject)
 public
    procedure Requests(Step: integer);
 end;

implementation

procedure TPackets.Requests(Step: integer);
begin
      case Step of
        0: Write('Hello');
        1: Write('Bye');
      end;
end;
end.

...

type
  TMyThreads = class(TThread)
  private
    { Private-Deklarationen }
    FStep: Integer;
...

implementation

uses
  Unit1, Unit3;

...
  with IdTCPClient do
    begin
      ....
      try
        Requests(0); //hier wird gemeckert zuviele Parameter
        Requests(1); //und der aufruf in der form ist sicher auch falsch
...

procedure TMyThreads.Requests;
begin
  Packets.Requests(FStep); //hier wird gemeckert Undefinierter Bezeichner 'Packets'
  //wobei type TPackets = class(TObject) in Unit3 ja eigentlich gesetzt ist
  //und dann sind ess ihm natürlich auch noch zu viele Parameter
  //trotz des public procedure Requests(Step: integer); in unit3
end;