Regsistrierungs Assistent

[T.E.]

Und dies ist der Code des Formulars, das dir als letztes angezeigt wird!

Delphi-Quellcode:

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP, IdExplicitTLSClientServerBase,IdSMTPBase,
  ComCtrls;

type
  TForm4 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    butnsendmail: TButton;
    memomsg: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    smtpSendMail: TIdSMTP;
    mesgMessage: TIdMessage;
    ListBox1: TListBox;
    StatusBar1: TStatusBar;
    EEMail: TEdit;
    Image1: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure butnsendmailClick(Sender: TObject);
    procedure smtpSendMailStatus(ASender: TObject;
      const AStatus: TIdStatus; const AStatusText: String);
    procedure FormCreate(Sender: TObject);
{    procedure FormCreate(Sender: TObject);}
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
                            procedure Status(AMsg: string);
  end;

var
  Form4: TForm4;

implementation

uses INIFiles, Unit3, Unit2, Unit5, WinInet;

{$R *.dfm}

function IsConnectedToInternet : boolean;
begin
  result := (InternetGetConnectedState(nil, 0))
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
  Form3.show;
  Form4.Visible := false;
end;

procedure TForm4.FormShow(Sender: TObject);
begin
  memomsg.text := 'Anrede: ' + Form2.Edit1.Text + #13#10#13#10 + 'Nachname: ' + Form2.edit2.text + #13#10#13#10 + 'Vorname: ' + Form2.Edit3.Text + #13#10#13#10 + 'E-Mailadresse: ' + Form2.Edit4.Text + #13#10#13#10 + 'Land: ' + Form2.Edit5.Text + #13#10#13#10 + 'Wohnort (freiwillig): ' + Form2.Edit6.text +
  #13#10#13#10 + 'Produktname: ' + Form2.Edit7.Text + #13#10 + 'Version: ' + Form2.Edit8.text + #13#10#13#10 + 'Wo haben Sie das Produkt erworben und von wem: ' + #13#10 + Form2.Memo1.Text + #13#10#13#10#13#10 + 'Ihre Fragen: ' + #13#10#13#10 + Form3.Memo1.Text + #13#10#10#13#10#13 + Form3.Edit2.Text + #13#10 + Form3.edit3.Text + #13#10 + form3.Edit4.text + #13#10#13#10#13#10 + form2.Edit9.Text;
  Form4.memomsg.Lines.SaveToFile('C:\Temp\Ihre Benutzerangaben im Registrierungs-Assistenten.txt');
end;

procedure TForm4.butnsendmailClick(Sender: TObject);
var s : string;
    Ini: TIniFile;
begin
 butnSendMail.Enabled := False; try
    with mesgMessage do begin
      Clear;
      From.Text := Trim(Form2.EMail.text);{Sender}
      Recipients.Add.Text := Trim(Form4.EEMail.text);{Empfänger}
      Subject := Trim(Form2.edit4.text + ' hat ' + Form2.Edit7.text + ' Version ' + Form2.Edit8.text + ' registriert!' + Form2.Edit9.text);
      Body.Assign(memomsg.Lines); {Hier kommt die Nachricht hinein}
    end;
    with smtpSendMail do begin
      Host := Form2.Host.Text;
      Username := Form2.Username.Text;
      Password := Form2.Passwort.Text;
      Port := 25;
      Connect; try
      Send(mesgMessage);
      finally Disconnect; end;
    end;
    Status('Completed');
  finally butnSendMail.Enabled := True; end;
    s := 'Vielen Dank für Ihre Registrierung; Sie werden in kürze eine Registrierungsbestätigung in Ihrem E-Mail Postfach haben.';
  ShowMessage(s);
  close;
  close;
end;

procedure Tform4.smtpSendMailStatus(ASender: TObject;
  const AStatus: TIdStatus; const AStatusText: String);
begin
  Status(AStatusText);
end;

procedure Tform4.Status(AMsg: string);
begin
  ListBox1.ItemIndex := ListBox1.Items.Add(AMsg);
  // Allow the listbox to repaint
  Application.ProcessMessages;
  Application.ProcessMessages;
  Application.ProcessMessages;
end;


{procedure TForm4.FormCreate(Sender: TObject);
begin
memomsg.Lines.Add(timetostr(time)+datetostr(date));
butnsendmail.Click;
end;
}
procedure TForm4.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  try
    Ini:=TIniFile.Create('C:\Windows\System32\DataUs.rud');
   Form4.EEMail.text := Ini.ReadString('Empfänger','Empfänger E-Mailadresse','Wert')
     finally
    Ini.Free;
  end;
  if IsConnectedToInternet then
   StatusBar1.Panels[1].text := ('Verbunden')
 else
   StatusBar1.Panels[1].Text := ('nicht Verbunden-Bitte stellen Sie eine Internetverbindung her!')
end;

end.

Und wo ich hier gerade den Quellcode gepostet habe, kann mir vielleicht noch mal jemand sagen,wie ich die Priorität auf ganz hoch verändern kann?