ich habe das x-mailer-Package eingebunden. In der entsprechenden Unit (XMailer) finde ich:
Code: Alles auswählen
TSendMail = class
[...]
procedure Progress(const APosition, AMax: Integer; const AStatus: string); virtual;
Code: Alles auswählen
program XMailerTest;
uses XMailer;
type MyMail = class (TSendMail)
public
procedure Progress(const APosition, AMax: Integer; const AStatus: string); overwrite;
begin
ShowMessage (AStatus);
end;
end;
begin
[...]
end.
Liebe Grüße,
Jörg