Editar imagen en Delphi

[feico]

Hola, deseo conocer como editar una imagen(fotograria), que yo pudiera agragarle rayas tipo paint, abrir una aplicacion similar y poder guardarla en oracle, y como la guardaria , ojala alguien tenga algo de informacion que me pudieran proporcionar, gracias.

[erasmorc]

Revisa estos tres eventos ejecutados sobre una imagen y luego me cuentas.


procedure TFrepfurgones.Image2MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PenDown := True;
StartPoint := Point(X,Y);
end;

procedure TFrepfurgones.Image2MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
If penDown Then
Begin
IF Frepfurgones.CheckBox4.Checked = True Then
Begin
Image2.Canvas.Pen.Color := ClWhite;
Image2.Canvas.Pen.Width := 6;
End
Else
Begin
Image2.Canvas.Pen.Color := ClRed;
Image2.Canvas.Pen.Width := 2;
End;
Image2.Canvas.MoveTo(StartPoint.X, StartPoint.Y);
Image2.Canvas.LineTo(X,Y);
StartPoint := Point(X,Y);
End;

procedure TFrepfurgones.Image2MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PenDown := False;
end;