Du kannst in dem var-Abschnitt (1x var reicht) soviele Variablen deklarieren, wie du möchtest. Du musst nur die unterschiedlichen Typen mit einem Semikolen trennen.
Delphi-Quellcode:
procedure irgendwas;
var
i1,i2,i3:integer;
s1,s2,s3:string;
i4:integer;
begin
...
end;