Aufbau und Charakterisierung eines Guinier-Diffraktometers

Anhang A - 22
EMI.Value:=MI;
EML.Value:=ML;
EMP.Value:=MP;
EMK.Value:=MK;
ER.Value:=Radius;
EDA.Value:=DAusen;
EDP.Value:=DPappe;
EDK.Value:=DKapton;
P.Checked:=Binning;
RG.Value:=RadiusGon;
Application.ProcessMessages;
end;
procedure TForm2.OkayClick(Sender: TObject);
// Inhalt der Eingabe-Boxen als neue Variablenwerte uebernehmen
begin
MI:=EMI.Value;
ML:=EML.Value;
MP:=EMP.Value;
MK:=EMK.Value;
Radius:=ER.Value;
DAusen:=EDA.Value;
DPappe:=EDP.Value;
DKapton:=EDK.Value;
Application.ProcessMessages;
Binning:=P.Checked;
RadiusGon:=RG.Value;
Form2.Close;
end;
procedure TForm2.ExitClick(Sender: TObject);