1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TfrmMain.ComboBox1Change(Sender: TObject);
var
ini:TIniFile;
begin
ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'konten.ms');
POP.Host := ini.ReadString(ComboBox1.Items.Strings[ComboBox1.ItemIndex],'PopServer','');
POP.Username := ini.ReadString(ComboBox1.Items.Strings[ComboBox1.ItemIndex],'Benutzer','');
POP.Password := ini.ReadString(ComboBox1.Items.Strings[ComboBox1.ItemIndex],'Passwort','');
POP.Connect;
ComboBox1.Enabled:=false;
end;