帮我写一个简单的RC4加密的例子

Question

如题 我提供RC4的源码，帮我写一个简单的例子上传告诉我怎么使用 谢谢啦  照顾新手~
unit Unit2;interfacetype
PByteArray = ^TByteArray;
TByteArray = Array [0..32767] Of Byte;TRC4 = class
private
D : array[Byte] of Byte;
I,J : Byte;
procedure Init(const Key: string);
procedure Done;
procedure Code(Source, Dest: pChar; Count: Integer);
public
function Encrypt(S: pChar; const Password: string): AnsiString;
function Decrypt(S: pChar; const Password: string): AnsiString;
end;implementation{ TRC4.Encrypt
This function will return the text(S) encrypted with the chosen password. }
function TRC4.Encrypt(S: pChar; const Password: string): AnsiString;
begin
SetLength(Result, Length(S));
Init(Password);
Code(pChar(S), pChar(Result), Length(S));
Done;
end;{ TRC4.Decrypt
This function will return the text(S) decrypted with the chosen password. }
function TRC4.Decrypt(S: pChar; const Password: string): AnsiString;
begin
SetLength(Result, Length(S));
Init(Password);
Code(pChar(S), pChar(Result), Length(S));
Done;
end;{ TRC4.Init
This routine will prepare the encryption/decryption. }
procedure TRC4.Init(const Key: string);
var
R, S, T, K : Byte;
U,L : Integer;
DummyArray : array [0..1599] of Char;
begin
{$R-}
{$Q-}
L := Length(Key);
I := 0;
J := 0;
R := 0;
U := 0;
for S := 0 to 255 do
D[S] := S;
for S := 0 to 255 do
begin
if (U < L) then
K := PByteArray(Key)[u]
else
K := 0;
Inc(U);
if (U >= L) then
U := 0;
Inc(R, D[S] + K);
T := D[S];
D[S] := D[R];
D[R] := T;
end;
Code(@DummyArray, @DummyArray, 1600);
end;{ TRC4.Done
This routine will clean the variables used when encrypting/decrypting. }
procedure TRC4.Done;
begin
FillChar(D, sizeOf(D), 0);
FillChar(I, sizeOf(I), 0);
FillChar(J, sizeOf(J), 0);
end;{ TRC4.Code
This routine will encrypt the text. }
procedure TRC4.Code(Source, Dest: pChar; Count: Integer);
var
S : Integer;
T : Byte;
begin
for S := 0 to (Count - 1) do
begin
Inc(I);
T := D[i];
Inc(J, T);
D[i] := D[J];
D[J] := T;
Inc(T, D[i]);
Byte(Dest[S]) := Byte(Source[S]) xor D[T];
end;
end;end.__________________

Answer 1

我想用它来加密， 在uses  中添加 那个单元了，是不是就可以直接引用了？
然后我添加了一个编辑框，和一个按钮 
点击按钮事件
Edit1.text := Trc4.Encrypt('123456789','111')
可是它不通过 提示 [Error] Unit1.pas(30): This form of method call only allowed for class methods
我该怎么做啊

Answer 2

var
  rc4:Trc4;
begin
  rc4:=Trc4.create;
  rc4.init4(key?);
  Edit1.text := Trc4.Encrypt('123456789','111');
end;

Answer 3

 Edit1.text := rc4.Encrypt('123456789','111');