risolto ho fatto cosi

procedure TForm1.RubricaClick(Sender: TObject);
begin
lista.items.loadfromfile('rubrica.Txt')
end;