Capturar imagen en una aplicacion Delphi 7.0

[BuRtOn]

Saludos, jejeje ya encontre la formita, miren como me quedaria el codigo, por si alguien nesecite hacerlo despues:

Código Delphi [-]
procedure TfrmClientes.LbSpeedButton1Click(Sender: TObject);
begin

tsCap321.SaveAsBMP:=('D:\Gyros\fotosclientes\'+dbedtcodigo.Text+'.BMP');

Prueba.Picture.LoadFromFile('D:\Gyros\fotosclientes\'+dbedtcodigo.Text+'.BMP');

Prueba.Visible:=True; 

MessageDlg('la foto a sido tomada correctamente',mtInformation,[mbOK],0);
 
end;

Este es el codigo que me quedaria en el boton de borrar:

Código Delphi [-]
procedure TfrmClientes.borrarClick(Sender: TObject);
begin

DeleteFile('D:\Gyros\fotosclientes\'+dbedtcodigo.Text+'.BMP'); //Elimino la foto tomada en ese momento.

Prueba.Visible:=False; //Lo hago Visible :=False, para que se elimine la imagen que queda grabada en el image, mientras que si le doy de nuevo en capturar, se coloca Visible:=True, pero con la imagen nueva.

end;

Jeje, en fin Gracias a todos, en especial a Caral, que fue la que mas me ayudo y me aguanto en este tema.