TStream

[Владимир1988]

Всем привет.
Подскажите пожалуйста. Хочу создать программку, в которой из edit1 будет копироваться поток в edit2.
При нажатии “Comlete class at cursor” в функции procedure BitBtn1Click(Sender: TObject); выводится сообщение "cannot complete a class with a incomplete methods implementations".
В чем может быть дело?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure copyfileclick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.copyfileclick(Sender: TObject);
var
stream1, stream2: tstream;

begin
  stream1:=tfilestream.create(edit1.text,
fmopenread or fmsharedenywrite) ;
try
stream2 :=tfilestream.create(edit2.text,
fmopencreate or fmsharedenyread);
try
stream2.copyfrom(stream1, stream1.size);
finally
stream2.free;
finally
stream1.free
end;
end;

end.

[Скандербег]

На какой строке ошибка?
У меня этот код компилируется нормально, если только после stream2.free; добавить end;. finally вложенными не бывают. Try, да, но каждый из них должен заканчиваться finally ... end; (или except ... end; ).
И еще, в D7 константы fmopencreate нет (только fmcreate).

[Владимир1988]

Спасибо. Все заработало.