[kinobi]

Var
  H: Integer;
begin
  for H := 0 to Memo1.Lines.Count-1 do
  begin
    // Showmessage(Memo1.Lines[H]); Solo para ver que lineas tiene.
    for ... // segundo for (anidado)
    begin
      ...
      for ... // tercer for (anidado)
      begin
      ...
      end;
      ...
    end;
    ...
  end;
  ...
end;

Saludos