El gran problema de lo que planteas, me parece, no es que quede el código, poruque igual la función no la van a poder ejecutar dado que tu label esta invisible.
Pero tu clave si se podrá ver en un editor hexadecimal, por lo que podrias modificar tu aplicación asi:
Código Delphi
[-]
procedure TfrmLogin.Label1Click(Sender: TObject);
begin
leUsuario.Text := Desencritar('MiUsuario');
leClave.Text := Desencritar('MiClave');
end;
donde "Desencriptar" sea una función que desencrite tu clave, y en un editor hexa sólo se vera tu código encriptado. Obviamente, esta función no debe ser pública.