我自己写的函数应该放在什么地方？

[snowolf_ren]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
BtnChange: TButton;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure BtnChangeClick(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);

private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

//我是放在这里，但有问题，编译不了***************************

function myChange(str:string):string;
begin
...............
end;

end.

[蓝色光芒]

var
Form1: TForm1;

function myChange(str:string):string; //加上这句申明

implementation

//我是放在这里，但有问题，编译不了***************************

function myChange(str:string):string;
begin
...............
end;

[赖皮鹏]

同意楼上！

[snowolf_ren]

晕，我写了，还是有这样的错误

[Error] Unit1.pas(75): Statement expected but 'FUNCTION' found
[Error] Unit1.pas(130): Statement expected but 'PROCEDURE' found

[xufenglong]

私有的放在
private
{ Private declarations }下
公用的在
public
{ Public declarations }下

[snowolf_ren]

public
{ Public declarations }
function myChange(str:string):string;

有多了一个

[Error] Unit1.pas(27): Unsatisfied forward or external declaration: 'TForm1.Change'

[snowolf_ren]

大家帮我看一下，急啊~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[zzlazio]

放在Type里..私有的放Private..公共的放Public.

//////////////
[Error] Unit1.pas(75): Statement expected but 'FUNCTION' found
[Error] Unit1.pas(130): Statement expected but 'PROCEDURE' found

看看是不是少了';'号...

[XuDunYu]

function myChange(str:string):string; //加上这句申明
应该放在var之前

[ICMGDCHN]

声明
private
function myChange(str:string):string;

实现:
function TForm1.myChange(str:string):string;

[何鲁青]

implementation

{$R *.DFM} //你是不是把这句话给删了所以出现下面的错误

[Error] Unit1.pas(75): Statement expected but 'FUNCTION' found
[Error] Unit1.pas(130): Statement expected but 'PROCEDURE' found