Habe mir folgenden Auszug aus der Delphi-Hilfe geholt:

[code:1:6f99cfa43d]
procedure TForm1.Button2Click(Sender: TObject);
var

Hallo Mike,

irgendwie muss die beim Kopieren ein Fehler unterlaufen sein.

Die Funktion InputQuery benötigt 3 Parameter, in deinem Aufruf steht als 3. (von 4) Parametern:

Zitat:

(1-'+IntToStr(NMPOP31.MailCount)+')'

Hier wird jedoch die Variable erwarten, in der nach dem Aufruf das Ergebnid der Eingabe stehen soll. Außerdem versuchst du hier zu der Zahl 1 einen String zu addieren, was natürlich auch nicht funktioniert.

Lasse den o.g. 3. Parameter einfach mal weg oder, wenn du die mögliche Auswahl anzeigen willst, dann schreibe:

markieren

Code:

if InputQuery('Retrieve an E-Mail message','Which message?'+
 '(1-'+IntToStr(NMPOP31.MailCount)+')',s) then...

Danke für die schnelle Antwort

MrSpock

Gruß

Mike