Wenn die Hausnummer immer als Erstes steht und sich sonst nix Schlimmes davor befindet,
dann vielleicht so (incl. anhängender Buchstaben)
Delphi-Quellcode:
function GetFirstNumber(s : String) : String;
var
i : Integer;
begin
s := Trim(s);
i := 0;
while (i < Length(s)) and (s[i + 1] in ['0'..'9', 'a'..'z', 'A'..'Z']) do
inc(i);
Result := Copy(s, 1, i);
end;
Falls keine Leerzeichen und Co. davor vorkommen können, dann kann die Zeile mit dem Trim entfallen.