См. пост #1142
Мне нужна реализация для Delphi

Моя попытка:

procedure TForm3.Button1Click(Sender: TObject);
var n,m,j,i:real;
begin
try
n:=strToFloat(Edit1.text);
m:=strToFloat(Edit2.text);

int n=3;
int m=4;

int result=1

for(int j=1;j<=m;j++)
for(int i=1;i<=n;i++)
result y= 2*i + j;

label3.Caption:=FloatToStr(y);

except
end;
end;

Адаптируйте код для делфи плз, не шарю я в кодинге, что поделать