[NumLock]

ну а OemToAnsi(PAnsiChar(Memo1.Text), PAnsiChar(s));