Как открыть ярлык

AnsiString ansi_string=Memo1->Lines->GetText();
int index = ansi_string.Pos("1");
if(index!=0)
 
OpenFile( "1") Integer;

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
      Edit1->Text = Memo1->Lines->Strings[Memo1->CaretPos.y];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
       ShellExecute(0,NULL,Edit1->Text.c_str(),0, NULL, SW_SHOW);
}
//---------------------------------------------------------------------------

AnsiString ansi_string = Memo1->Text;
int index = ansi_string.Pos("1");
 if (index) {
   Memo1->Lines->LoadFromFile("1");
}