2. soru için biraz forumu kurcalayarak en büyüğü ve en küçüğü bulan 2 farklı şekilde program yaptım programlar aşağıdaki linktedir.Bunları kontrol edip nasıl en küçük üç tanesini ve en büyük 3 tanesini showmessagede yazdırabilirim.

http://www.multiupload.com/G1S01GUWDO

Çoktandır foruma uğramamıştım.
Şu ilk soruya biraz kafa yorayım dedim.
Haliyle 40 basamaklı bir sayıyı StrToFloat, FloatToSTR fonksiyonlarıyla dönüştürmek pek mümkün değil
Ben de aşağıdaki fonksiyonu yazdım.
String 2 sayıyı toplayıp yine string olarak sonuç döndürüyor.

Function Topla(Sayi1, Sayi2:string):String;
var
  i:integer;
  Haneler1:array[1..100]of integer;
  Haneler2:array[1..100]of integer;
  Toplam, Artan:integer;
  Uzunluk, Uzunluk1, Uzunluk2:integer;
  Sonuc:String;
begin
  Artan:=0;

  For i:=0 to 100 do Haneler1[i] := 0;
  For i:=0 to 100 do Haneler2[i] := 0;

  Uzunluk1:=Length(Sayi1);
  Uzunluk2:=Length(Sayi2);

  for i:=1 to Uzunluk1 do
    Haneler1[i]:=strtointdef( Copy(Sayi1, ((Uzunluk1-i)+1), 1), 0);

  for i:=1 to Uzunluk2 do
    Haneler2[i]:=strtointdef( Copy(Sayi2, ((Uzunluk2-i)+1), 1), 0);

  if Uzunluk1>Uzunluk2 then Uzunluk:=Uzunluk1 else Uzunluk:=Uzunluk2;

  Artan:=0;

  for i:=1 to Uzunluk do
  begin
    Toplam:=Haneler1[i] + Haneler2[i] + Artan;
    Haneler1[i] := Toplam MOD 10;
    Artan := Toplam DIV 10;
  end;
  Haneler1[i] := Artan;

  if Artan>0 then Haneler1[Uzunluk+1]:=Artan;

  Sonuc:='';
  for i:=1 to Uzunluk do Sonuc:=inttostr(Haneler1[i])+Sonuc;

  Result:=Sonuc;

end;

Aşağıdaki şekilde kullanabilirsiniz.
Edit3.Text := Topla(Edit1.Text, Edit2.Text);

100 basamağa kadar toplar. Dizi değerlerini yükselterek elbette daha yükse basamaklı sayıları da toplayabilirsiniz.
Belki fazladan değişken ya da gereksiz kod kullanmış olabilirim. Biraz daha sadeleştirmekte yarar var...

yukardaki kod biraz gereksiz
real değişken e atadığımızda yapabiliriz

Çünkü Real (5.0 x 10^-324) ile (1.7 x 10^308) arasında değer saklayabilen reel sayı tipidir.
Dönüştürdüğümüzde büyük ihtimal üs gelecektir ancak sonuç yanlış değildir