Fórum criar uma pasta pelo nome do edit e colar a imagem dentro da pasta #421505

Para Criar diretorio ou pasta:
Para criar um diretório você precisa usar a função ForceDirectories, o exemplo a baixo testa se não existe um diretório e cria o diretório apartir de uma variável string testando se o diretório já existe

Unit

FileCtrl

procedure TForm1.Button1Click(Sender: TObject);
begin

if not DirectoryExists(edit1.text) then
ForceDirectories(edit1.text);
end;

Copiar arquivo:
Coloque no uses: ShellApi

{ - Coloque um botão no form e altere o evento OnClick deste botão conforme abaixo:}
procedure TForm1.Button1Click(Sender: TObject);
var
Dados: TSHFileOpStruct;
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(c:\teste\*.txt);
pTo := PChar(a:\);
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
end;
Observações:

Esta forma de copiar arquivos oferecem várias vantagens. O Shell avisa para pôr um próximo disco quando o atual estiver cheio. Mostra a barra de progresso. Pode copiar arquivos usando máscara de uma forma extremamente simples.

WILTON SéRGIO até a parte de Copiar no meu caso esta certo agora como que eu faço para copiar uma imagem sendo que essa imagem eu ja selecionei no delphi e colar esta imagem na pasta que eu criei

Deu certo =)
Deu para aproveitar os teus exemplos Obrigado.
Ficou assim :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, IBCustomDataSet, IBQuery, jpeg, ExtCtrls,ShellAPI;

type
TForm1 = class(TForm)
Edit1: TEdit;
BitBtn1: TBitBtn;
Edit2: TEdit;
Image1: TImage;
procedure BitBtn1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Arquivo : String;
SR: TSearchRec;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Dados: TSHFileOpStruct;
SR: TSearchRec;
I: integer;
begin
if not DirectoryExists(ExtractFilePath(Application.ExeName)+Edit1.Text) then
ForceDirectories(ExtractFilePath(Application.ExeName)+Edit1.Text);
FillChar(Dados,SizeOf(Dados), 0);
begin
with Dados do
begin
Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName)+teste.jpg);
wFunc := FO_COPY;
pFrom := PChar(ExtractFilePath(Application.ExeName)+*.jpg);
pTo := PChar(ExtractFilePath(Application.ExeName)+Edit1.Text);
Arquivo:= ExtractFilePath(Application.ExeName)+*.jpg;
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if not DeleteFile(ExtractFilePath(Application.ExeName)+teste.jpg + SR.Name) then
end;
end.