email adds aus DB Abfrage weiterverarbeiten

[tini]

Hallo!

habe jetz mal mein programm getestet, aber es funktioniert nicht....

findet ihr vielleicht den fehler?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
Betreff: string;
Inhalt: string;
i: byte;
empfaenger: string;


begin
Betreff:=Edit1.Text;
Inhalt:=Memo.Text;
empfaenger:='';

  for i := 0 to ListBox1.Items.Count - 1 do
  begin
  if ListBox1.Selected[i] then
  begin
  ADOQuery1.Close;
  ADOQuery1. Parameters.ParamValues['Gruppe']:= Listbox1.Items[Listbox1.ItemIndex];
  ADOQuery1.Open;
  WHILE NOT (ADOQuery1.Eof) do
    begin
    empfaenger:= empfaenger+ADOQuery1.FieldByName('EMail-Adresse').AsString+';';
    end;
  end;
  end;

ShellExecute(Application.Handle, 'open',PChar('mailto:'+empfaenger+'?subject='+Betreff+'&body='+Inhalt), nil, nil, sw_ShowNormal);

end;

Die SQL Anweiseungen habe ich über den Objektinspektor eingegeben. DIe stimmt auch (liefert das richtige Ergebnis). Aber wenn ich jetzt den button drück, arbeitet der Rechner ewig und das mail programm wird erst gar nicht aufgerufen!

Liegt es vielleicht daran, dass ich zuviele email_add in einem string speichern will, bzw. das gar nicht geht?

Viele Grüße
tini