programınız versiyonunu geliştirdiniz müsterilerinize email atmak yerine programınıza versiyon kontrol ettirin

buyrun kod geliştimek size kalmış ben sadece yolu gösteriyorum
procedure TForm1.Button1Click(Sender: TObject);
var
vrs,vrs1:string;

begin
  vrs:='1.1';
vrs1:=(IdHTTP1.Get('http://d_n_a.sitemynet.com/vrss.txt'));  versiyon dosyasinin bulunmasi gerek txt dosyasi içinde 1.2 yaziyor yeni verdiyon oltugunda gidip deyiştirmeni gerek

if vrs>vrs1 then

  begin
  showmessage('yeni versiyon üretildi indirmek için tıklayin');
  button2.show
    else
 showmessage('versiyon yenilenmemiş');

   end;
    end;
procedure TForm1.Button2Click(Sender: TObject);
begin
try
    IdHTTP1.Get('http://d_n_a.sitemynet.com/vt1.setup'));
   except
   showmessage('dosya inerken bir hata oluştu ');
end;
finally
form1.free
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  button2.Hide;
end;

end.

kusura bakmayın ama ikinizinde kodu çalışmaz stream kullanmadan nasıl indirecek exe dosyasını. delphi neyi kimin sırtına yükleyecek hangi yolla indiricek sırtındaki yükü  biraz daha ekleme yapmak lazım kodları veriyorum

public
{ Public declarations }
end;
var
dosya: tfilestream; // bunu oluşturmayı unutmayın. gerçi unutursanız delphi fırçayı basar



buton içine
var
version:string;
begin
  Application.ProcessMessages;// kontrolü windowsa verin.
try
   version:=IdHTTP1.Get('www.versiyon dosyanızın barındığı alan.com/version.txt');
   edit2.Text:= Version;
   except
   begin
if edit2.text='' then
   begin
   showmessage('İnternet Bağlı Değil');
   end;
   exit;
   showmessage('hata oluşursa verilecek mesaj');
   end;
   end;
if  edit1.Text < edit2.Text then
   begin
   Application.ProcessMessages; // kontrolü windowsa verin.
   showmessage('güncel versiyon bulundu');
try
   begin
   Application.ProcessMessages;// kontrolü windowsa verin.
   dosya:=tfilestream.create('C:\Documents and Settings\All Users\Desktop\programım.exe',fmcreate);
   idhttp1.get('www. exe dosyanızın barındığı alan.com/programım.exe',dosya);
   end
except
   begin
   showmessage('indirmede hata oluşursa verilecek mesaj');
   end;
   end;
   end;
if edit1.Text = edit2.Text then
   begin
   showmessage('güncel versiyon bulununamadı');
   end;
   end;
   end.

üstünden hayli zaman geçmiş ama birilerinin işine yarar diye yazıyorum benim bundan önceki mesajımda yazmış oldugum kodlar şakır şakır çalışıyor zaten dikkat ederseniz şiir gibi yazmışım  bizzat programımda uyguladım çokta güzel oldu... pibesumse'ye bakmayın şaka yapıyor o