[NumLock]

Пионер, UnitMain.Text[k] := Encode(Text[k]); и UnitMain.Text[k] := Decode(Text[k]);
не используй для переменных такие имена.

Код:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    function Ok: String;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption:=Ok;
end;

function TForm1.Ok: String;
begin
  Ok:='Hello, world!';
end;