Ansatz von Priceduren/Functionen

[Leo675]

Hallo alle zusammen,

ich hab ein Problemchen:

ich will mein Code mit hilfe fon Funktionen und Proceduren reduzieren, aber da Erfahrung fehlt bin ich mir bisschen unsicher.

z.B. wenn folgender Aufruf:

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
var
Datei,Datum :String;
begin

Button5.Enabled := True;
Button7.Enabled := True;
if RadioButton1.Checked then
  begin
    a:= 1;
    Datei:='';
    Datum:='';
    Datei := FileCamera1[High(FileCamera1)];
    Datei := Dr_a+Datei;
    Image5.Picture.LoadFromFile(Datei);
    Datum:= TimeFileCamera1[High(TimeFileCamera1)];
    Label6.Caption:= Datum;
  end;
if RadioButton2.Checked then
  begin
    b:= 1;
    Datei:='';
    Datum:='';
    Datei := FileCamera2[High(FileCamera2)];
    Datei := Dr_b+Datei;
    Image5.Picture.LoadFromFile(Datei);
    Datum:= TimeFileCamera2[High(TimeFileCamera2)];
    Label6.Caption:= Datum;
  end;
if RadioButton3.Checked then
  begin
    c:= 1;
    Datei:='';
    Datum:='';
    Datei := FileCamera3[High(FileCamera3)];
    Datei := Dr_c+Datei;
    Image5.Picture.LoadFromFile(Datei);
    Datum:= TimeFileCamera3[High(TimeFileCamera3)];
    Label6.Caption:= Datum;
  end;
if RadioButton4.Checked then
  begin
    d:= 1;
    Datei:='';
    Datum:='';
    Datei := FileCamera4[High(FileCamera4)];
    Datei := Dr_d+Datei;
    Image5.Picture.LoadFromFile(Datei);
    Datum:= TimeFileCamera4[High(TimeFileCamera4)];
    Label6.Caption:= Datum;
  end;
end;