1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

for i:=1 to length(swort.text) do
  if
    ((ord(key)<91) and ((key = swort.text[i]) or (chr(ord(key)+32) = swort.text[i])))
    or
    ((ord(key)>91) and ((key = swort.text[i]) or (chr(ord(key)-32) = swort.text[i])))
  then begin
    Key:=#0;
    showmessage('Buchstabe schon vergeben');
    break;
end;					

1:
2:
3:
4:

if pos(UpperCase(Key), Uppercase(swort.text)) > 0 then begin
  Key := #0;
  showmessage('Buchstabe schon vergeben');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
    RemainingChars : set of Char;

{...}
if Key = #8 then 
begin
  RemainingChars := RemainingChars - [swort.text[Length(swort.text)]];
end
else if key in RemainingChars Then
begin
  ShowMessage('Already used!');
  key := #0;
end
else
begin
  RemainingChars := RemainingChars + [key];
end;