Ругается в модуле! Как быть?

[Golovastik]

Добавляя в Unit2, Unit1, для того как вы говорите он видел форму, идут ругательства в Unit1, в том месте где я добавляю Unit2 (в Uses)...

[uberchel]

Если вы это по поводу этого :

unit Scanfold;

interface

uses
  Windows,Sysutils,Graphics,Jpeg,StdCtrls;

procedure Scanfoldes(List: TListBox; Grid: TStringGrid);

implementation

procedure Scanfoldes(List: TListBox; Grid: TStringGrid);
var
  jpg : TJpegImage;
  i, start : integer;
  st,chosenDirectory,path :string;
begin
  if chosenDirectory = '' then
  MessageBox(0,'Please select catalog','Error', MB_OK);
  exit;
  start := 1;
  path := chosenDirectory + '\';
  // ScanDir(path, '', ListBox1.Items);
  for i := 0 to List.Items.Count - 1 do
begin
  st := list.Items[i];
  if ((st[length(st)] = 'g') or (st[length(st)] = 'G')) then
begin
  Grid.Cells[0,start] := inttostr(start);
  Grid.Cells[1,start] := st;
  start := start + 1;
  Grid.RowCount := start;
end;
end;

// Еще процедуры\функции

end.

то просто подключайте его к unit1 и всё.

примир:

implementation
uses Scanfold;