Vedno sm našel odgovore a tokrat ga žal nisem

No in problem nastane ker sm si za internetno glaerijo naredil en programeč kateri naj bi v teoriji pomanjševal slike vendar se zaplete pri:
Koda: Izberi vse
procedure TForm2.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
Form2.Caption := OpenDialog1.FileName;
Image1.picture.LoadFromFile
(OpenDialog1.FileName);
end;

res prosim vas lepo za pomoč ker rabim program za uradno stran župnije in gasilskega društva kjer pa je veliko slik za pomanjševat.
Hvala in L.P Klemen Repenšek
Ps:
Koda: Izberi vse
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtDlgs, ExtCtrls, StdCtrls, FileCtrl;
type
TForm2 = class(TForm)
GroupBox1: TGroupBox;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Image1: TImage;
OpenDialog1: TOpenDialog;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
N,Time: Integer;
Datoteka: String;
Slika: TImage;
implementation
{$R *.dfm}
procedure TForm2.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
Form2.Caption := OpenDialog1.FileName;
Image1.picture.LoadFromFile
(OpenDialog1.FileName);
end;
end;
end.