Solução alternativa
O RTL
(Run-Time Library) já têm uma função que faça isso por você.
A função ByteLength
da unit SysUtils
.
function ByteLength(const S: string): Integer;
Exemplo(retirado dos docs da Embarcadero):
var
LS1: WideString;
begin
LS1 := 'Hello World!';
Writeln('UnicodeString: ''', LS1, ''' contains ', Length(LS1), ' characters in ', ByteLength(LS1), ' bytes.');
Readln;
end.
A saída será:
Atualização
Como lembrado pelo @EMBarbosa a função ByteLength
de SysUtils está disponível apenas para o Delphi 2009 ou superior.
Ao olhar o funcionamento dessa função podemos olhar como ela funciona, e como já mencionado em outras respostas, o código abaixo parece ser o padrão a ser utilizado em versões antigas do Delphi.
function ByteLength(const S: string): Integer;
begin
Result := Length(S) * SizeOf(Char);
end;