1:
2:
3:
4:

if SaveDial.Execute then
   begin
      Messages.Lines.SaveToFile(SaveDial.FileName);
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   iConfig := TIniFile.Create('..\'+ChatFolderName+'\Config.ini');
   SaveConfig(TRUE);
   iConfig.Free;
   StopMIDI;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:

rocedure TForm1.SaveConfig(MitStartWave: Boolean);
var
   sCache   : String;
   tmpColor : TColor;
   sColor   : String;
   iCache   : Integer;
begin
   sCache := cbFontName.Text;
   iConfig.WriteString('Font','Font Name',sCache);

   sCache := cbFontSize.Text;
   iConfig.WriteString('Font','Font Size',sCache);

   tmpColor := cbFontColor.Selected;
   sColor := ColorToString(tmpColor);

   iConfig.WriteString('Font','Font Color',sColor);

   if ToolButton1.Down then
      iConfig.WriteBool('Font','Font Bold',TRUE)
   else
      iConfig.WriteBool('Font','Font Bold',FALSE);

   if ToolButton3.Down then
      iConfig.WriteBool('Font','Font Italic',TRUE)
   else
      iConfig.WriteBool('Font','Font Italic',FALSE);

   if ToolButton4.Down then
      iConfig.WriteBool('Font','Font Underline',TRUE)
   else
      iConfig.WriteBool('Font','Font Underline',FALSE);

   if Messages.Color = $00FFE2C6 then
   begin
      iConfig.WriteString('Font','Hintergrundfarbe','$00FFE2C6');
   end else
   begin
      tmpColor := cbHintergrund.Selected;
      sColor := ColorToString(tmpColor);
      iConfig.WriteString('Font','Hintergrundfarbe',sColor);
   end;

   iCache := Form1.ClientWidth;
   iConfig.WriteInteger('Window','Width',iCache);

   iCache := Form1.ClientHeight;
   iConfig.WriteInteger('Window','Height',iCache);

   iCache := Form1.Left;
   iConfig.WriteInteger('Window','Left',iCache);

   iCache := Form1.Top;
   iConfig.WriteInteger('Window','Top',iCache);

   if Form1.WindowState = wsNormal then
   begin
      iConfig.WriteString('Window','State','wsNormal');
   end else
   begin
      if Form1.WindowState = wsMaximized then
      begin
         iConfig.WriteString('Window','State','wsMaximized');
      end else
      begin
         iConfig.WriteString('Window','State','wsMinimized');
      end;
   end;

   sCache := 'C:\WINNT\Media\tada.wav';
   iConfig.WriteString('Sound','Start Wave',sCache);

   if MitStartWave then
   begin
      if SoundForm.cbSound2.Checked then
      begin
         iConfig.WriteBool('Sound','Play Start Wave',TRUE);
      end else
      begin
         iConfig.WriteBool('Sound','Play Start Wave',FALSE);
      end;
      iConfig.WriteString('Sound','Start Wave',SoundForm.Edit2.Text);
   end;
end;