{не мой код, брал отсюдова - с СКуЕль, автора не записал, так что 
звыняйте...}
const
AlfWinChr: array[ 1 .. 67 ]of integer=
( 192 , 193 , 194 , 195 , 196 , 197 , 168 , 198 , 199 , 200 , 201 , 202 , 203 , 204 , 205 ,
  206 , 207 , 208 , 209 , 210 , 211 , 212 , 213 , 214 , 215 , 216 , 217 , 218 , 219 , 220 ,
  221 , 222 , 223 , 224 , 225 , 226 , 227 , 228 , 229 , 184 , 230 , 231 , 232 , 233 , 234 ,
  235 , 236 , 237 , 238 , 239 , 240 , 241 , 242 , 243 , 244 , 245 , 246 , 247 , 248 , 249 ,
  250 , 251 , 252 , 253 , 254 , 255 , 179 );

{отдельно циклом с помощью ord('x') подбираем значения для украинского набора символов и ставим сюда. Желательно и русское Ы добавить... 
Я делал так:
procedure TForm1.Button2Click(Sender: TObject);
var stmp: char;
zzz: integer;
begin
for  zzz:= 1  to Length(Edit1.Text) do begin
stmp:=Edit1.Text[zzz];
Edit2.Text:=Edit2.Text+' '+intToStr(ord(stmp));
end;
end;}

AlfDOSChr: array[ 1 .. 67 ]of integer=
( 128 , 129 , 130 , 131 , 132 , 133 , 240 , 134 , 135 , 136 , 137 , 138 , 139 , 140 , 141 ,
  142 , 143 , 144 , 145 , 146 , 147 , 148 , 149 , 150 , 151 , 152 , 153 , 154 , 155 , 156 ,
  157 , 158 , 159 , 160 , 161 , 162 , 163 , 164 , 165 , 241 , 166 , 167 , 168 , 169 , 170 ,
  171 , 172 , 173 , 174 , 175 , 224 , 225 , 226 , 227 , 228 , 229 , 230 , 231 , 232 , 233 ,
  234 , 235 , 236 , 237 , 238 , 239 , 247 );

{аналогично... Но строка должна быть закодирована в досе....}

function DosToWin(st:string):string;
var
 len,k,kk:longint;
 lit,litout:string[ 1 ];
 Stout:string;
 ordNom:integer;
 Enter:boolean;
 begin
  if st='' then
   begin
    DosToWin:='';
    exit;
   end;
  stout:='';
  len:=Length(st);
  for k:= 1  to len do
   begin
    lit:=Copy(st,k, 1 );
    ordNom:=Ord(lit[ 1 ]);
    Enter:=False;
    for kk:= 1  to  67  do
     begin
      if ordNom=AlfDosChr[kk] then
       begin
        litOut:=chr(AlfWinChr[kk]);
        Enter:=true;
        Break;
       end;
     end;
    if Enter then stout:=stout+litOut{+' d('+IntToStr(AlfDOSChr[kk])+')' +' w('+IntToStr(AlfWinChr[kk])+')'} else stout:=stout+lit;
   end;
  DosToWin:=stout;
 end;