A lo mejor te sirve esto:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var
n1,n2,c,codigo:Integer;
i: Integer;
desde, hasta: integer;
suma: Integer;
begin
Memo1.Lines.Clear;
val(Edit1.Text,n1,codigo);
val(Edit2.Text,n2,codigo);
if n1 < n2 then
begin
desde := n1;
hasta := n2;
end
else
begin
desde := n2;
hasta := n1;
end;
Memo1.Lines.Add(
Format('Numeros Pares entre %0:d y %1:d', [desde, hasta]));
i := desde;
Suma := 0;
repeat
if (i mod 2) = 0 then
begin
Memo1.Lines.Add(Format('%d', [i]));
Suma := Suma + i;
end;
i := i + 1;
until i > hasta;
Memo1.Lines.Add('--------------------');
Memo1.Lines.Add(format('Total suma: %d', [Suma]));
end;
Un saludo