LeerString überspringen ?!

[aaaaaaaaaa_10]

Ich möchte mehrere Strings aneinanderhängen zu einem Gesamtstring (Total):

Delphi-Quellcode:

var String1,String2,String3 : string
begin
  String1 := 'Eins';
  String2 := 'Zwei';
  String3 := 'Drei';
  Total := String1+String2+String3; 
end;

ergibt also : Total : 'Eins Zwei Drei'

Nun zu meinem Problem. Es kann sein, dass z.B. String2 leer ist. Dann erhalte ich für Total : 'Eins Drei'
Es wird also der leere String eingefügt, ich möchte aber gerne, wenn der String leer ist, dass dann der nächste String aufrückt.