If fopen then

begin

try

bmp := TBitmap.Create;

bmp.Assign(img1.Picture);

bmp.SaveTofile(ChangeFileExt(fname, '.bmp'));

finally

bmp.Free;

end;

end

else

begin

dlg1.Execute;

try

bmp := TBitmap.Create;

bmp.Assign(img1.Picture);

bmp.SaveTofile(ChangeFileExt(dlg1.FileName, '.bmp'));

finally

bmp.Free;

end;

fopen := true;

end;

fsave := true;

end;

procedure TForm1.N4Click(Sender: TObject);

var

bmp: TBitmap;

begin

dlg1.Execute;

try

bmp := TBitmap.Create;

bmp.Assign(img1.Picture);

bmp.SaveTofile(ChangeFileExt(dlg1.FileName, '.bmp'));

finally

bmp.Free;

end;

fsave := true;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

if fsave <> true then

begin

Form4.ShowModal;

end

else

begin

fopen := false;

img1.Picture := nil;

Img1.Canvas.FillRect(img1.Canvas.ClipRect);

img2.Picture := nil;

Img2.Canvas.FillRect(img2.Canvas.ClipRect);

img3.Picture := nil;

Img3.Canvas.FillRect(img3.Canvas.ClipRect);

backp := false;

nextp := false;

end;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

if fsave <> true then

begin

Form4.ShowModal;

end;

if fsave = true then

form1.Close;

end;

end.