Ai vai um codigo que peguei no site da Borland que trava as teclas: Ctrl+Alt+Del, Alt+Tab e Ctrl+Esc.

var
OldValue : LongBool;
begin
{liga a trava}
SystemParametersInfo(97, Word(True), @OldValue, 0);
{desliga a trava}
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;