unit csmain;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
   begin
   csstart;
   end;
end.


//下面是一个单元
unit csst;
interface
uses
 Dialogs;

implementation
procedure csstart;
begin
showmessage('测试成功');
end;
end.


//编译不通过奇怪了! 我是测试把其中的一块拿出来写个单元,这样更清晰些,但是测试的时候不通过啊.
  我觉得我的代码没有问题,因该是编译器的问题
  哪位大哥能指点下这个问题,这样我就少走好多弯路了.

虽然已经自己解决了,但还是谢谢!谢谢这位大哥的帮助!