Richedit en büyük degerin satır numarasını bulmak

[OZAY]

internette ararken bulduğum aşağıdaki kod ile richedit içindeki en büyük degeri bulup edit içerisine yazdırıyorum ama yapamadığım şey
en büyük degerin bulunduğu satır numarasını bulmak istiyorum yardımcı olursanız sevinirim şimdiden teşekkürler hepinize

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
sayi1,enb:real;
begin
        enb:=0;

         for i:=463 to 1500 do
        begin
        sayi1:=(strtofloat(richedit1.Lines[i]));
        if sayi1 > enb then
        enb := sayi1;
        end;
        edit11.text:=floattostr(enb);
end;

[mrmarman]

if ile enb değişkenine değer aradığınız yeri begin end bloğuna alın. Enb değişkeni gibi bir de enbSatirno gibisinden tanımlamış olduğunuz integer değişkene de i değerini atayın.

Kolay gelsin.

[OZAY]

Çok teşekkür ederim arkadaşım bi türlü çözememiştim emeğine sağlık