اتجاه النص حسب نسق لوحة المفاتيح

function winKeyboard: string;
var
WinLanguage: array [0..255] of char;
i:Integer;
begin
i:=GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow ,nil)) And $FFFF;
VerLanguageName(i, WinLanguage, 255);
Result := StrPas(WinLanguage);
end; 

procedure TForm10.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if AnsiPos('Arabe',winKeyboard)<>0 then
Edit1.BiDiMode:=bdRightToLeft
else
Edit1.BiDiMode:=bdLeftToRight ;
end;