wie kann ich das ganze aufrufen?
so?
Code:
procedure TForm1.Button6Click(Sender: TObject);
begin
Image1.width := 51; // Auf Breite 51 Pixel setzen
Image1.Proportional := True; //Damit keine Verzerrung entsteht
Image1.Picture.SaveToFile('c:\1.jpg');
end;