Farbdeckung ausgeben lassen

[Venator]

Na ja, soweit ist das System klar, aber als Delphi
wiederanfänger bin ich damit nen stückweit derzeit
überfordert.

Delphi-Quellcode:

procedure TDeckungsgradberechner.Grafikoeffnen1Click(Sender: TObject);
var OD: TOpenDialog;
begin
OD := TOpenDialog.Create(Self);
  with OD do
   begin
    OD.Title := 'Datei auswählen...';
    OD.Filter := 'Jpeg-Dateien (*.jpg)|*.jpg|Bitmaps (*.bmp)|*.bmp'; // Dateityp-Festlegung
    OD.InitialDir := GetCurrentDir; // Öffnen-Pfad = Aktuelles Verzeichnis
    if OD.Execute then // Wenn geöffnet, dann ...
     Grafikplatz.Picture.LoadFromFile(Filename); // Bild wird in Grafikplatz geladen
   end;
  OD.Free; // Dialog wieder aus Speicher entfernen
end;

end.