uses
  System.Generics.Collections;  //泛型容器单元

type
  TSClient = class(TObject)          //TObject 是 System 单元中定义的第一个类。
    IP,Name        : String;
    Listk    : Integer;
  end;

var
  f_Lists:TList<TSClient>;      //定义泛型变量

f_Lists:=TList<TSClient>.Create;

var
  fClient:TSClient;
begin
  fClient:=TSClient.Create;
  fClient.IP:=Edit1.Text;
  fClient.Name:=Edit2.Text;
  fClient.Listk:=99;
  f_Lists.Add(flist); //添加 
end;

fClient:=f_lists.Items[i];
Label1.Text:=fClient.Name +'  '+ fClient.IP + '  '+ fClient.Listk.ToString;

f_Lists.Delete(i);