start procedure

Så er jeg her igen med mit email ploblem, men jeg tror jeg har fundet ploblemmet, hvordan starter jeg den procedure som heder getmail, det rigtige sted nede i Button1Click. Programmet skal tjekke om jeg har fået adgang til serveren, og det er det getmail proceduren skal gøre.

Koden ser således ud.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, starsock, Inetmail, Addrbook, Gnetmail;

type
  TForm1 = class(TForm)
    GetMail1: GetMail;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    status: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure getmail(Sender: TObject; info:
GetMailInfo; addinfo: String);
  private

    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation


{$R *.DFM}


procedure TForm1.getmail(Sender: TObject; info:
GetMailInfo; addinfo: String);
begin
case info of
gmLogin: Status.Caption:=\'Logging in\';
end;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
getmail1.mail_server := edit1.text;
getmail1.User_id := edit2.text;
getmail1.User_Password := edit3.text;
getmail1.Mail_action := Get_mail;
end;



end.