1:

Form2.ShowModal;					

1:
2:
3:

  If Frm1.Checkbox1.Checked = True then ...
  If Frm1_Checkbox2.Checked = True then ...
  If Frm1_Checkbox3.Checked = True then ...					

1:

If Frm1.Checkbox1.Checked  then ...					

1:

If Frm1.Checkbox1.Checked  then ...					

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:

unit Unit_Eingabe;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls;
....
var
  Frm_Eingabe: TFrm_Eingabe;
  
implementation

uses Unit_Ergebnis,
     Unit_KW,
     Unit_Definitionen,
     Unit_Algorithmen,
     Unit_AusgabeKW,
     Unit_Fortschritt;
...
procedure TFrm_Eingabe.BTN_BerechnenClick(Sender: TObject);
begin
  If CB_Start.Text = '' then
     MessageDlg('Bitte Startknoten eingeben !', mtError, [mbOK], 0)
     else
  If CB_Ziel.Text = '' then
     MessageDlg('Bitte Zielknoten eingeben !', mtError, [mbOK], 0)
     else
  If (CheckB_Dijkstra.Checked = False) and
     (CheckB_Bellmann.Checked = False) and
     (CheckB_Ford.Checked = False) then
        MessageDlg('Bitte einen Algorithmus auswählen !', mtError, [mbOK], 0)
     else
  If ED_Durchlauf.Text = '0' then
     MessageDlg('Anzahl der Durchläufe darf nicht 0 sein !', mtError, [mbOK], 0)
     else
      begin
      Frm_Fortschritt.ShowModal; 
      Frm_Ergebnis := TFrm_Ergebnis.Create(Self);
      Frm_Haupt.Hauptmenue.Items[2].Items[0].Checked := False;
      Frm_Haupt.Hauptmenue.Items[2].Items[1].Enabled := True;
      Frm_Haupt.Hauptmenue.Items[2].Items[1].Checked := True;
      end;
end;					

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

procedure TFrm_Fortschritt.FormCreate(Sender: TObject);

begin
  If Frm_Eingabe.CheckB_Dijkstra.Checked then
  begin
   StartZeitMessen();
   Dijkstra();
   StoppZeitMessen();
   Zeit_Dijkstra := verbrauchteZeit();
  end;
  ....
  If Frm_Eingabe.CheckB_Bellmann.Checked then .....
end;					

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

With TFormFortschritt.Create(Self) do
Begin
    try
        //Status der Checkboxes setzen)
        If showmodal THen
            //Bearbeitung der Eingaben
    finally
        Free;
    end;
end;