private
function getId_value  (id_client,id_status: integer):TStringList;

procedure setid_client (Value:integer);
procedure setid_status (Value:integer);


procedure setid_client(Value: integer);
begin
Fid_client:=Value;
end;

procedure setid_status(Value: integer);
begin
Fid_status:=Value;
end;

public

property Id_value :TStringList read getId_value ;

property id_client:Integer read FId_client write setid_client;
property id_status:Integer read FId_status write setid_status;

TClass2 = class 
в котором есть метод
private
function getId_client  (Id_point: integer):Integer;


procedure setId_point (Value:integer);

procedure setId_point (Value: integer);
begin
Fid_status:=Value;
end;

public
property Id_client :integer read getId_client ;

property Id_point:Integer write setId_point;