Trabalhando com a classe TObjectList

unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, UFuncionario, StdCtrls,
Contnrs; // <- é necessário declarar a classe Contnrs

type

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var

Form1: TForm1;
Funcionario: TFuncionario;// <- Classe Funcionario criada para exemplificar
FuncionarioDaLista: TFuncionario;// <- Usaremos esta variável para exemplificar

//como se recupera um objeto da lista
ListaFuncionarios: TObjectList;// <- Lista de Objetos (TObjectList)

implementation

uses UPessoa;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   ListaFuncionarios := TObjectList.Create;// <- Cria lista de Funcionarios
   Funcionario := TFuncionario.Create;// <- Cria Funcionario em memória
   with Funcionario do
   begin
      Nome := Danilo Dadonas;
      DataNascto := 01/01/1800;
      Sexo := M;
      TipoSalario := Horista;
      ValorHoraMes := 20.00;
   end;

   ListaFuncionarios.Add(Funcionario); // <- Armazena Funcionario na lista
   FuncionarioDaLista := TFuncionario.Create;
   FuncionarioDaLista := TFuncionario(ListaFuncionarios.Items[0]);// <- É necessário fazer um cast
   //no objeto pois se colocar diretamente ListaFuncionarios.Items[0] o compilador não entende que
   //o objeto da lista é da classe TFuncionario. A primeira posição da lista é 0

end;

end.