[warlok]

Ребят я только недавно пробывать кодить на делфи такчто тапками мну небить Вообшем пытаюсь скодить самый простой файл менеджер коекакие успехи есть но далеко не идеал , проблема в том что половина его функций нерабоатют : кпримеру я немогу открыть диалоговывые окна и т.д.Зато заместо удаления файла он его копирует
Вот мой код :

Код:

unit Unit1;

interface

uses
 Windows,Controls,Messages, SysUtils, Variants, Classes, Graphics,
Forms, Dialogs, StdCtrls, ShellAPI, Gauges;

type
 TForm1 = class(TForm)
    from: TEdit;
    where: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button2: TButton;
    Button3: TButton;
    Open1: TOpenDialog;
    Save1: TSaveDialog;
    Button4: TButton;
    Del: TEdit;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
    procedure doit;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

                   procedure TForm1.doit();
var
f1, f2 : file of Byte; //Работа с первым и вторым файлом
cop: Byte; //Для побайтового копирования
sizes: LongInt; //Хранит размер файла
begin
{$I-} //Отключаем директиву, которая отслеживает ошибки ввода/вывода
try //Начало блока обработки исключений
//Связываем файловую переменную fl с первым файлом
AssignFile(f1, from.Text);
//Связываем файловую переменную f2 со вторым файлом
AssignFile(f2, where.Text);
Reset(f1); //Открываем первый файл на чтение
sizes := Trunc(FileSize(f1));
Label4.Caption := IntToStr(sizes div 1024) + 'Кб';
Rewrite(f2);
while not Eof(f1) do
begin
BlockRead(f1, cop , 1);
BlockWrite(f2,cop,1);
end;
CloseFile(f1);
CloseFile(f2);
finally;
end;
if IOResult <> 0
then MessageDlg('Ошибка при копировании файла',mtError, [mbOk],0)
else begin
ShowMessage('Успешно скопировано');
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 doit;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
 if Open1.Execute then from.Text := Open1.FileName
 else ShowMessage('Файл открыт');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
 if Save1.Execute then where.Text := Save1.FileName
 else
 ShowMessage('Вы не выбрали место для сохранения файла');
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
 doit;
 DeleteFile(from.Text);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
 if Open1.Execute then del.Text := Open1.FileName
 else ShowMessage('Файл не был выбран');
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
 DeleteFile(del.Text);
 if not FileExists(del.Text)
 then
 ShowMessage('Файл был удален');

end;


end.

или вот полностью мои исходники : http://zalil.ru/upload/26362544
Помогите разобраться , укажите пожалуйсто мои явные ошибки ... ну если несложно подскажите как исправить
Заранее всем сенкс