Progress Bar

ProgressBar1.Position := ProgressBar1.Position + 1;

function EnDecryptString(StrValue : String; Chave: Word) : String;
var
    I: Integer;
    OutValue: String;
begin
    OutValue := ´´;
    ProgressBar1.Max := Length(StrValue);
    for I := 1 to Length(StrValue) do
    begin
        OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));
        Progressbar1.Position := Progressbar1.Position + 1;
    end;
    Result := OutValue;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=EnDecryptString(edit1.text,200);
end;

unit Unit1;

interface

uses
  bla, bla, bla/

type
  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;
    Edit1: TEdit;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
  end;

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;
    Edit1: TEdit;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);

//  funções e procedures que pertencem a uma classe pai devem ser 
//  obrigatoriamente declaradas. Como se pode ver abaixo, para se
//  declarar a função, basta copiar a mesma coisa da parte implementation
//  apenas retirando a referencia a classe pai que no caso é TForm1

    function EnDecryptString(StrValue : String; Chave: Word) : String;
  private
{ Private declarations }
  public
{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//  Inclua na frente do nome da sua função a referência a classe que ela
//  pertence. Nesse caso a classe pai é TForm1, portanto inclua isso na 
//  frente do nome da função como se vê abaixo...

function TForm1.EnDecryptString(StrValue : String; Chave: Word) : String;
var 
    I: Integer;
    OutValue: String;
begin
    OutValue := ´´;

//  Ao se "classear" a função EnDecryptString, isto é, ao se dizer 
//  explicitamente a qual classe ela pertence, será possível a partir dela
//  acessar todos os outros objetos que pertencem a tal classe. Como
//  ProgressBar1 pertence a TForm1 e a função atual tbm pertence agora,
//  o seu código será perfeitamente compilado!

    ProgressBar1.Max := Length(StrValue);
    for I := 1 to Length(StrValue) do
begin
        OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));
        Progressbar1.Position := Progressbar1.Position + 1;
        Application.ProcessMessages; // <-- adicione (*)  
    end; 
    Result := OutValue; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=EnDecryptString(edit1.text,200);
end;

end.