Esta función que hice de primera y pata igual y te sirva:
Código Delphi
[-]
procedure TForm3.Button1Click(Sender: TObject);
function ElEditMasGrande(Edits: array of TEdit): TEdit;
var
M: TEdit;
I: Integer;
begin
if Length(Edits) > 0 then
begin
M := Edits[Low(Edits)];
for I := Low(Edits) to High(Edits) do
begin
if StrtoIntDef(Edits[i].Text, 0) > StrtoIntDef(M.Text, 0) then
M := Edits[i];
end;
Result := M;
end
else
Result := nil;
end;
begin
with ElEditMasGrande([Edit1, Edit2, Edit3, Edit4]) do
begin
SetFocus;
end;
end;
Este ejemplo pone el foco en el edit con el número mas grande.