[Delphi] Помогите исправить ошибку

[AlekseyKonov]

В чем ошибка, кто-то говорит, что какого-то равно не хватает

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Memo1: TMemo;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Memo2: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure GetIntetFile(URL, SavetoFile: string);
var
 TM: TMemoryStream;
begin
 try
  TM:= TMemoryStream.Create;
  Form1.idhttp1.Get(URL,TM);
  form1.Memo1.Lines.Add('Файл загружается');
  form1.ProgressBar1.Position:=form1.ProgressBar1.Position+25;
  sleep(300);
  form1.ProgressBar1.Position:=form1.ProgressBar1.Position+25;
  finally
  TM.SavetoFile(SavetoFile);
  form1.ProgressBar1.Position:=form1.ProgressBar1.Position+50;
  form1.ProgressBar1.Position:=0;
    form1.Memo1.Lines.Add('Загрузка завершена, ищите файл в c:\wh.dll');
  end;
  TM.Free;
end;

procedure GetIntetFile2(URL, SavetoFile: string);
var
 TM: TMemoryStream;
begin
 try
  TM:= TMemoryStream.Create;
  Form1.idhttp1.Get(URL,TM);
  finally
  TM.SavetoFile(SavetoFile);
form1.Memo1.Lines.Add('Успешно');
  end;
  TM.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GetIntetFile('http://autoupdatecrmp.ucoz.ru/lol.txt','C:\Users\Алексей\Desktop\Автообновление\lol.txt');
end;

procedure TForm1.FormShow(Sender: TObject);
var
version:string;
begin
version:='1.0';//наша версия
memo1.Lines.Add('Ваша версия updater = '+version);
GetIntetFile2('http://autoupdatecrmp.ucoz.ru/versionupdater.txt','C:\Users\Алексей\Desktop\Автообновление\upd.txt');
memo2.Lines.LoadFromFile('C:\Users\Алексей\Desktop\Автообновление\upd.txt');
if memo2.Textversion then    //Если версия другая то
begin
memo1.Lines.Add('обнаружена новая версия updater  = '+memo2.Text);
memo1.Lines.Add('Для закачки нажмите на кнопку обновить updater');
end   //Если версия такая же
else memo1.Lines.Add('обновлений не обнаружено');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
version:string;
begin
version:='1.0';//наша версия
memo1.Lines.Add('Ваша версия updater = '+version);
GetIntetFile2('http://autoupdatecrmp.ucoz.ru/versionupdater.txt','C:\Users\Алексей\Desktop\Автообновление\upd.txt');
memo2.Lines.LoadFromFile('C:\Users\Алексей\Desktop\Автообновление\upd.txt');
if memo2.Textversion then    //Если версия другая то
begin
memo1.Lines.Add('обнаружена новая версия updater  = '+memo2.Text);
memo1.Lines.Add('Закачка производится в C:\Users\Алексей\Desktop\lososi.exe');
GetIntetFile2('http://autoupdatecrmp.ucoz.ru/lososi.exe','C:\Users\Алексей\Desktop\lososi.exe');
end   //Если версия такая же
else memo1.Lines.Add('обновлений не обнаружено');
end;

end.

[metraz]

А написать место ошибки? или нам самим искать?

[NebesaBag]

В логической строке

if memo2.Text <> version then    //Если версия другая то

упущен оператор сравнения(вероятнее всего <>).
В представленном коде таких строк две.