Clases recursivas, ¿Como hacerlo?

[josepicd]

Aqui el problema que tengo es que el uses debe ir en el interface ya que el TForm3 tiene una variable del tipo TForm1 por lo que si lo saco de la implementation y lo pongo en interface tengo el problema de los uses ciclicos

Empezado por escafandra

Creo que lo más sencillo es hacer esto:

Código Delphi [-]
unit Unit3;

interface

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

type
  TForm3 = class(TForm)
  private
F1 : TForm1;
  public
  end;

var
  Form3: TForm3;

implementation

uses unit1;  //<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

{$R *.dfm}
.........
.........
.........

Saludos.