keybd_event[большие и маленькие буквы]

[Disorder]

Всем доброго времени суток.
Возникла проблема с keybd_event.
У меня нажатие клавиш грузится с txt файла и нужно что б маленькие буквы воспринимались как маленькие буквы,а не как другие символы.Возможно ли такое сделать?

[_SERGEYX_]

Не очень понятен вопрос. А как они должны восприниматься?

procedure TForm1.RzEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key >= 'A') and (key <= 'Z') then ShowMessage('Большая буква');
if (key >= 'a') and (key <= 'z') then ShowMessage('Маленькая буква');
end;

[Stilet]

Всмысле? Приведи пример.

[Disorder]

Сообщение от Stilet

Всмысле? Приведи пример.

Есть код

procedure TForm1.WMHotKey(var Message: TMessage);
var
  h: hwnd;
  i: integer;
  s: string;
begin
  h := findwindow(nil, 'Opera');
  if h <> 0 then
  begin
    SetForegroundWindow(h);
    s := Memo1.Lines[k];
    for i := 1 to length(s) do 
    begin
      keybd_Event(ord(s[i]), 0, 0, 0);

Memo1 грузится с файла.
Для того что б были буквы нижнего регистра,в keybd_event должен быть прописан верхний регистр,а нужно что б при использовании нижнего регистра прописывался нижний регистр.