Buscar y eliminar en un StringList

[wilcg]

Hola amigos del foro, necesito su ayuda.
Lo que pasa es que tengo 2 TStringlist, en donde cargo información. Ahora lo que quiero es eliminar en el StringList2 los textos que existen en el StringList1 por ejemlpo.

StringList1
12345
12346
12347

StringList2
34957
95746
12345 =======> este quisiera eliminar porque ya existe en el StringList1 y así todos los que existan..

estoy intentando con algo así

Código Delphi [-]
var
   i :integer;
   Lista1, Lista2 :TStringList;
begin
  for i := 0 to Lista1.Count -1 do
  begin
    if Lista2.IndexOf(Lista1.Text) = Lista1.Text then
     Lista2.Delete(i);
  end;
end;

si alguien me indica el camino.