Deletar ultimo caracter de uma string

ola ... preciso deletar os dois ultimos caractere de um edit .... tipo
se estiver 123AB fica 123

var tamanho:integer;
begin
tamanho:=length(edit.text);
edit.text:=copy(edit.text,1,tamanho-2);
end;