[[maeyanes]]

Bueno... ese si es un problema...

Una solución es después de la línea ListBox1.Items.Add(...) agregues Application.ProccessMessages...

Ahora... pensándolo bien, puedes, usando el TDBGrid hacer lo que deseas...

Aquí tendrías que jugar con el evento OnFilterRecord y la propiedad Filtered del TADOTable...

Algo como:

Código Delphi [-]
procedure TForm1.ADOTable1.OnFilterRecord(DataSet: TDataSet; var Accept: Boolean);
var
  
begin
  // Si el valor del campo Nombre no existe en el ListBox, se muestra en el Grid...
  Accept := ListBox1.Items.IndexOf[ADOTable1.FieldByName('Nombre').AsString) = -1
end;

Saludos...