[Acid_Burn123]

Господа подскажите что не так в коде:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SHFolder, ShlObj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}




function GetSpecialFolderPath(folder : integer) : string;
      const
      SHGFP_TYPE_CURRENT = 0;
      var
      path: array [0..MAX_PATH] of char;
begin
      if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then
      Result := path
else
      Result := '';
end;




procedure TForm1.Button1Click(Sender: TObject);
        var
        searchResult:TSearchRec;
        A:string;
begin
        if checkbox1.Checked=true then
begin
       if FindFirst(A+'\*.jpg', faAnyFile, searchResult) = 0 then
begin
repeat
       MoveFile (PAnsiChar(A+'\'+searchResult.Name),PAnsiChar(A+'\'+edit1.text+'\'+searchResult.Name));
until FindNext(searchResult) <> 0;
       FindClose(searchResult);
end;
end;

end;
end.
end;

end;
end.

файл с расширением .jpg не перемещается(в едит я задаю уже существующую папку)исправьте пожалуйста...