TASIOAudioIn getDeviceName returns only the first letter

[Feigl97]

I think the last line in the function should be Result := String(Devices[Number].name) instead of
Result := String(Devices[Number].name[0]);