Datenbankfeld in ein TEdit

[PhilmacFLy]

Jetzt hab ich ein anderes Problem und zwar wenn ich das 2te mal auslesen will kommt folgender Fehler:
Erste Zufalls-Exception bei $7C812AEB. Exception-Klasse EDatabaseError mit Meldung 'ADOQuery1: Parameter 'id' nicht gefunden'. Prozess mtd_leasing.exe (1784) Hier mal der Code dazu

Delphi-Quellcode:

procedure TForm3.bttauslesenClick(Sender: TObject);
var
an, ges, vname, nname, str, plz, ort: String;
begin
bttauslesen.Caption := 'Bitte warten';
bttauslesen.Enabled := false;
  if
    ping('walhall')
  then
    begin
      ADOConnection1.Connected := true;
      ADOQuery1.SQL.Clear;
      ADOQuery1.Parameters.ParamByName('id').Value := edparam.Text; //Markierte Zeile
      ADOQuery1.SQL.Add('SELECT Anrede, Geschlecht, Vorname, Nachname, PLZ, Straße, Ort FROM [Adressenliste Antworten] WHERE NR= :id'); 
      ADOQuery1.Open;
      if not ADOQuery1.IsEmpty then
      begin
        an := ADOQuery1.FieldByName('Anrede').AsString;
        ges := ADOQuery1.FieldByName('Geschlecht').AsString;
        vname := ADOQuery1.FieldByName('Vorname').AsString;
        nname := ADOQuery1.FieldByName('Nachname').AsString;
        plz := ADOQuery1.FieldByName('PLZ').AsString;
        str := ADOQuery1.FieldByName('Straße').AsString;
        ort := ADOQuery1.FieldByName('Ort').AsString;
        AdoQuery1.Close;
        AdoConnection1.Connected := false;
        Edpraxis.Text := an;
        if vname = '' then
        edname.Text := ges + ' ' + nname
        else
        edname.Text := vname + ' ' + nname;
        edstrasse.Text := str;
        edadresse.Text := plz + ' ' + ort;
        bttauslesen.Caption := 'Auslesen';
        bttauslesen.Enabled := true;
      end
      else
        begin
          Application.MessageBox('ID nicht vorhanden', 'Fehler', MB_ok or MB_iconerror);
          bttauslesen.Caption := 'Auslesen';
          bttauslesen.Enabled := true;
        end;
    end
  else
    if Application.MessageBox('Keine Verbindung zum Server möglich', 'Fehler', mb_iconerror or MB_RETRYCANCEL) = IDRETRY then
    bttauslesen.Click
    else
      begin
        bttauslesen.Caption := 'Auslesen';
        bttauslesen.Enabled := true;
      end;
end;