if (Key==40 && salto>0)
{
salto--;
Edit->Text = Memo->Lines->Strings[Memo->Lines->Count-salto];
}
if (Key==38 && salto<Memo->Lines->Count)
{
salto++;
Edit->Text = Memo->Lines->Strings[Memo->Lines->Count-salto];
}