procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Image1.Picture <> nil then MirrorHorizontal(Image1.Picture.Bitmap);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if Image1.Picture <> nil then MirrorVertical(Image1.Picture.Bitmap);
end;
Jak vidíte, veškeré operace probíhají "pouze" v paměti, v rámci komponenty Image, takže nedojde k přepsání původního souboru. Budete-li chtít však takto nově upravený obrázek uložit (vytvořit nový soubor či přepsat ten původní), není to sebemenší problém pomocí procedury Picture.SaveToFile komponenty Image. Toto bude ostatně platit i o všech dalších dnešních příkladech.