関数内で「この処理のために変数が必要だけど、ここでしか使わないのに var に変数を書きにいかなきゃならない！」というのは以下のような書き方で回避できます。

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  s := 'TEST';

 (procedure
  var
    a: Integer;
    b: Integer;
  begin
    a := 1;
    b := 2;
    s := s + IntToStr(a+b);
  end)(); // ここの () が重要

  ShowMessage(s); //TEST3 と表示される
end;

　
()(); ブロック内に処理を記述するのがミソです。

See Also:
[Delphi(Object Pascal)でcaseを式にする (山本隆の開発日誌)]
http://www.gesource.jp/weblog/?p=6691

[リファクタリング (Delphi 2005 以降) (Delphi Tips])
http://ht-deko.minim.ne.jp/tech060.html