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:
Code:
if InputQuery('Retrieve an E-Mail message','Which message?'+
'(1-'+IntToStr(NMPOP31.MailCount)+')',s) then...