Carregar imagem

[Lívio Bruno 0]

Boa tarde pessoal. Bom... preciso carregar uma imagem em uma Timage num form e salva-la em um diretório com um nome que está digitado em uma edit no mesmo form.

 

desde já agradeço.

 

Boa tarde pessoal. Bom... preciso carregar uma imagem em uma Timage num form e salva-la em um diretório com um nome que está digitado em uma edit no mesmo form.

 

desde já agradeço.

 

 

Obrigado galera mas já resolvi o problema assim:

 

procedure TFRM_ADD_DEL.Image1Click(Sender: TObject);
begin

if OpenPictureDialog1.Execute then
 begin
   Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
   image1.Picture.SaveToFile('C:\Documents and Settings\HOME\Desktop\CADASTRO DE AMIGOS\img\' + 
   DBEdit1.Text + '.jpg');
 end;

end;

[bdexterholland 0]

Olá Livio, seu trabalho formatando o código foi louvável, mas temos a tag CODE que (acredito eu) faça o trabalho de forma mais eficiente.