[solom0n]

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

Код:

[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 и передавать параметр - строку. Что не так поясните пожалуйста...

Код:

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.