procedure TSpiel.input(key:word);
begin
    with feld do begin
        if (key=VK_DOWN) and (Spieler[1].typ='Tastatur') then
            Spieler[1].Aktion:='unten'
        else if (key=VK_UP) and (Spieler[1].typ='Tastatur') then
            Spieler[1].Aktion:='oben'
        else if (key=VK_RIGHT) and (Spieler[1].typ='Tastatur') then
            Spieler[1].Aktion:='rechts'
        else if (key=VK_LEFT) and (Spieler[1].typ='Tastatur') then
            Spieler[1].Aktion:='links'
        else if (key=VK_Return) and (Spieler[1].typ='Tastatur') then
            Spieler[1].Aktion:='Bombe'

        // Spieler 2
        else if (key=ord('S')) and (Spieler[2].typ='Tastatur') then
            Spieler[2].Aktion:='unten'
        else if (key=ord('W')) and (Spieler[2].typ='Tastatur') then
            Spieler[2].Aktion:='oben'
        else if (key=ord('D')) and (Spieler[2].typ='Tastatur') then
            Spieler[2].Aktion:='rechts'
        else if (key=ord('A')) and (Spieler[2].typ='Tastatur') then
            Spieler[2].Aktion:='links'
        else if (key=ord('E')) and (Spieler[2].typ='Tastatur') then
            Spieler[2].Aktion:='Bombe'

        // Spieler 3
        else if (key=ord('K')) and (Spieler[3].typ='Tastatur') then
            Spieler[3].Aktion:='unten'
        else if (key=ord('I')) and (Spieler[3].typ='Tastatur') then
            Spieler[3].Aktion:='oben'
        else if (key=ord('L')) and (Spieler[3].typ='Tastatur') then
            Spieler[3].Aktion:='rechts'
        else if (key=ord('J')) and (Spieler[3].typ='Tastatur') then
            Spieler[3].Aktion:='links'
        else if (key=ord('O')) and (Spieler[3].typ='Tastatur') then
            Spieler[3].Aktion:='Bombe'

        // Spieler 4
        else if (key=VK_NUMPAD2) and (Spieler[4].typ='Tastatur') then
            Spieler[4].Aktion:='unten'
        else if (key=VK_NUMPAD5) and (Spieler[4].typ='Tastatur') then
            Spieler[4].Aktion:='oben'
        else if (key=VK_NUMPAD3) and (Spieler[4].typ='Tastatur') then
            Spieler[4].Aktion:='rechts'
        else if (key=VK_NUMPAD1) and (Spieler[4].typ='Tastatur') then
            Spieler[4].Aktion:='links'
        else if (key=VK_NUMPAD6) and (Spieler[4].typ='Tastatur') then
            Spieler[4].Aktion:='Bombe';
    end;
end;