[solom0n]

Добрые люди, помогите срочно я уже всю бошку сломал, весь инет перерыл не могу ничего сделать с ошибкой

Код:

1 2	[Error] Unit7.pas(14): Unsatisfied forward or external declaration: 'TForm7.vivod1' [Fatal Error] Unit1.pas(32): Could not compile used unit 'Unit7.pas'

Ниже привожу код юнита. Сразу оговорюсь что хочу эту(vivod1) процедуру вызывать из юнита 1 и передавать параметр - строку. Что не так поясните пожалуйста...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

unit Unit7;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm7 = class(TForm)     Memo1: TMemo;     CheckBox1: TCheckBox;     procedure FormCreate(Sender: TObject);     procedure vivod1(var s:string);   private     { Private declarations }   public       { Public declarations }   end;   var   Form7: TForm7;   n:integer;   implementation   uses Unit1;   {$R *.dfm}   procedure TForm7.FormCreate(Sender: TObject); begin n:=0; vivod1(s); end;   procedure vivod1(var s:string); begin n:=n+1; s:=IntToStr(n)+' '+s; Form7.Memo1.Lines.Add(s); end;   end.